home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 41 / Commodore_Disc_41_19xx_-_de.d64 / glocke + hammer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  16KB  |  667 lines
  1. 10 rem glocke und hammer *******c64
  2. 20 rem                          ***
  3. 30 rem (p) 1990 commodore-disc  ***
  4. 40 rem                          ***
  5. 50 rem                          ***
  6. 60 rem (c) 1990 by g. kramer    ***
  7. 70 rem             emsdetten    ***
  8. 80 rem                          ***
  9. 90 rem ****************************
  10. 100 ifa=1then130
  11. 110 a=1
  12. 120 load"mp.glocke+hammer",8,1
  13. 130 gosub3510
  14. 140 gosub6500
  15. 150 gosub3750
  16. 160 gosub4770
  17. 170 gosub240
  18. 180 poke198,0
  19. 190 geta$:ifa$=""then190
  20. 200 _end:end
  21. 210 rem ****************
  22. 220 rem spiel laeuft ***
  23. 230 rem ****************
  24. 240 gosub590
  25. 250 fori=1toan
  26. 260 ms(0,0)=ms(0,0)+10
  27. 270 ms(i,2)=-10
  28. 280 next
  29. 290 gosub670
  30. 300 fori=1to200:next
  31. 310 gosub3020:gosub1170
  32. 320 sn=1:z$="0":gosub3020
  33. 330 sys51776:gosub1910
  34. 340 gosub2400
  35. 350 ifms(0,0)>0then330
  36. 360 a$="spielende - neue runde?"
  37. 370 gosub1840
  38. 380 geta5$
  39. 390 ifa5$<>"j"anda5$<>"n"then380
  40. 400 forss=1toan
  41. 410 ms(ss,0)=ms(ss,0)+ms(ss,2)
  42. 420 ms(ss,2)=0:gosub730
  43. 430 next
  44. 440 ifa5$="j"then240
  45. 450 return
  46. 460 rem ***************
  47. 470 rem get-routine ***
  48. 480 rem ***************
  49. 490 ifz$="1"then510
  50. 500 poke198,0
  51. 510 geta$
  52. 520 ifa$=""andz$="0"then510
  53. 530 ifa$=chr$(136)thenz$="1"
  54. 540 ifa$=chr$(135)thenz$="0"
  55. 550 return
  56. 560 rem **********************
  57. 570 rem spielfeld loeschen ***
  58. 580 rem **********************
  59. 590 fori=82to114step8
  60. 600 pokeb+i,32:next
  61. 610 a$="einsatz = 10"
  62. 620 gosub1840
  63. 630 return
  64. 640 rem *******************
  65. 650 rem alle punktwerte ***
  66. 660 rem *******************
  67. 670 forss=0toan
  68. 680 gosub730
  69. 690 next:return
  70. 700 rem *******************
  71. 710 rem ausgeben punkte ***
  72. 720 rem *******************
  73. 730 aa=ms(ss,0)
  74. 740 gosub1100
  75. 750 ifss>0then800
  76. 760 pokeze,9:pokesp,26:syscu
  77. 770 a$="bank = "+a$
  78. 780 printchr$(5)a$
  79. 790 goto1060
  80. 800 pokeze,14:a=ss*10-7
  81. 810 ifss>4thena=a-40:pokeze,22
  82. 820 pokesp,a:syscu
  83. 830 a0=146:ifaa<0thena0=18
  84. 840 a0$=chr$(32)+chr$(32)+chr$(32)
  85. 850 ifaa>=0then870
  86. 860 a0$=chr$(164)+chr$(164)+chr$(164)
  87. 870 a0$=a0$+a0$
  88. 880 printchr$(153)chr$(146)a0$
  89. 890 pokeze,15:ifss>4thenpokeze,23
  90. 900 pokesp,a:syscu
  91. 910 printchr$(153)chr$(a0)a$
  92. 920 aa=ms(ss,2)
  93. 930 gosub1100
  94. 940 pokeze,12:ifss>4thenpokeze,20
  95. 950 a=ss*10-7:ifss>4thena=a-40
  96. 960 pokesp,a:syscu
  97. 970 a0=146:ifaa<0thena0=18
  98. 980 a0$=chr$(32)+chr$(32)+chr$(32)
  99. 990 ifaa>=0then1010
  100. 1000 a0$=chr$(164)+chr$(164)+chr$(164)
  101. 1010 a0$=a0$+a0$
  102. 1020 printchr$(153)chr$(146)a0$
  103. 1030 pokeze,13:ifss>4thenpokeze,21
  104. 1040 pokesp,a:syscu
  105. 1050 printchr$(a0)a$
  106. 1060 return
  107. 1070 rem **********************
  108. 1080 rem aufbereiten punkte ***
  109. 1090 rem **********************
  110. 1100 a$=str$(aa)
  111. 1110 a$="....."+right$(a$,len(a$)-1)
  112. 1120 a$=right$(a$,6)
  113. 1130 return
  114. 1140 rem **********************
  115. 1150 rem karten versteigern ***
  116. 1160 rem **********************
  117. 1170 fori=1to5
  118. 1180 k$(i,1)=" bank"
  119. 1190 ka(i,0)=0:ka(i,1)=0
  120. 1200 next
  121. 1210 fork=1to5
  122. 1220 a$="versteigern:"+k$(k,0)
  123. 1230 gosub1840
  124. 1240 poke198,0
  125. 1250 geta$:ifa$="0"then1280
  126. 1260 a=val(a$):ifa<1ora>anthen1250
  127. 1270 gosub1370:ifpr=0then1220
  128. 1280 next
  129. 1290 a$="versteigerung ende?"
  130. 1300 gosub1840
  131. 1310 geta$:ifa$="n"then1210
  132. 1320 ifa$<>"j"then1310
  133. 1330 return
  134. 1340 rem *******************
  135. 1350 rem speichern karte ***
  136. 1360 rem *******************
  137. 1370 a$=str$(a):pokef+k*8+74,0
  138. 1380 pokeb+k*8+74,asc(right$(a$,1))
  139. 1390 a$="preis fuer "+k$(k,0)+"?"
  140. 1400 gosub1840
  141. 1410 pr=0:poke198,0
  142. 1420 geta$:ifa$=chr$(13)then1530
  143. 1430 ifa$<>chr$(20)then1460
  144. 1440 pr=int(pr/10)
  145. 1450 goto1480
  146. 1460 ifa$<"0"ora$>"9"then1420
  147. 1470 a0=val(a$):pr=10*pr+a0
  148. 1480 a$=chr$(32)+str$(pr)
  149. 1490 pokeze,7:pokesp,8*k-2-len(a$)
  150. 1500 syscu
  151. 1510 printa$
  152. 1520 ifpr<100then1420
  153. 1530 ifpr=0then1740
  154. 1540 ifpr>ka(k,1)then1580
  155. 1550 a$=k$(k,0)+" >"
  156. 1560 a$=a$+str$(ka(k,1))
  157. 1570 goto1400
  158. 1580 a$=k$(k,0)+" ="
  159. 1590 a$=a$+str$(pr)+" ok?"
  160. 1600 gosub1840
  161. 1610 poke198,0
  162. 1620 geta$:ifa$="n"then1370
  163. 1630 ifa$<>"j"then1620
  164. 1640 s0=ka(k,0):ifs0=0then1670
  165. 1650 ps=ka(k,1):ms(0,0)=ms(0,0)-ps
  166. 1660 ms(s0,2)=ms(s0,2)+ps
  167. 1670 k$(k,1)=str$(a)
  168. 1680 ka(k,1)=pr:ka(k,0)=a
  169. 1690 ms(0,0)=ms(0,0)+pr
  170. 1700 ms(a,2)=ms(a,2)-pr
  171. 1710 ss=a:gosub730
  172. 1720 ss=s0:gosub730
  173. 1730 ss=0:gosub730
  174. 1740 a$=str$(ka(k,0)):pokef+k*8+74,0
  175. 1750 pokeb+k*8+74,asc(right$(a$,1))
  176. 1760 a$=str$(ka(k,1))
  177. 1770 pokeze,7:pokesp,8*k-2-len(a$)
  178. 1780 syscu
  179. 1790 printa$
  180. 1800 return
  181. 1810 rem *********************
  182. 1820 rem informationszeile ***
  183. 1830 rem *********************
  184. 1840 poke781,9:poke782,24:sys59905
  185. 1850 pokeze,9:pokesp,0:syscu
  186. 1860 printchr$(144)a$
  187. 1870 return
  188. 1880 rem ************
  189. 1890 rem wuerfeln ***
  190. 1900 rem ************
  191. 1910 gosub2300
  192. 1920 a$="bitte wuerfeln"
  193. 1930 gosub1840
  194. 1940 gosub490
  195. 1950 fori=1to8
  196. 1960 w(i)=int(6*rnd(0))+1
  197. 1970 next
  198. 1980 ifz$="1"then2000
  199. 1990 ifa$<>chr$(29)then2080
  200. 2000 fori=7to0step-1
  201. 2010 a1=w(8-i)
  202. 2020 a=0:ifa1=6thena=1
  203. 2030 poke253,a
  204. 2040 poke254,2^i
  205. 2050 sys50853
  206. 2060 next
  207. 2070 goto2200
  208. 2080 a0=7:a1=w(1):j=1
  209. 2090 fori=1to50
  210. 2100 ifi>a1thena0=a0-1:j=j+1:a1=a1+w(j)
  211. 2110 ifj=9theni=50:goto2150
  212. 2120 a=i-6*int(i/6):ifa>0thena=-1
  213. 2130 poke253,a+1
  214. 2140 poke254,2^a0:sys50853
  215. 2150 next
  216. 2160 fori=2to8
  217. 2170 w(i)=w(i)+w(i-1)
  218. 2180 ifw(i)>6thenw(i)=w(i)-6
  219. 2190 next
  220. 2200 p=0
  221. 2210 fori=1to6
  222. 2220 ifw(i)=6thenp=p+i
  223. 2230 next
  224. 2240 p0=0:ifw(7)=6thenp0=1
  225. 2250 ifw(8)=6thenp0=p0+2
  226. 2260 return
  227. 2270 rem *********************
  228. 2280 rem aktueller spieler ***
  229. 2290 rem *********************
  230. 2300 a=440:a0=sn
  231. 2310 ifsn>4thena=720:a0=sn-4
  232. 2320 a=a+10*a0-8
  233. 2330 fori=a+btoi+6
  234. 2340 pokei,(peek(i)+128)and255
  235. 2350 next
  236. 2360 return
  237. 2370 rem ******************
  238. 2380 rem pruefen gewinn ***
  239. 2390 rem ******************
  240. 2400 ifp=0then2630
  241. 2410 a$="bank an spieler"
  242. 2420 ifp0>0then2470
  243. 2430 ss=sn:sp$=str$(ss)
  244. 2440 ifp=21thenp=ms(0,0)
  245. 2450 ifp>ms(0,0)then2520
  246. 2460 goto2490
  247. 2470 ifp>ms(0,0)then2520
  248. 2480 ss=ka(p0,0):sp$=k$(p0,1)
  249. 2490 a$=a$+sp$+" ="+str$(p)
  250. 2500 ifss=0thena$="an bank ="+str$(p)
  251. 2510 s1=0:gosub2790:goto2730
  252. 2520 ss=ka(4,0):sp$=k$(4,1)
  253. 2530 s1=sn:sq$=str$(s1)
  254. 2540 ifp0>0thens1=ka(p0,0):sq$=k$(p0,1)
  255. 2550 ifss=s1then2590
  256. 2560 a$="spieler"+sq$+" an"
  257. 2570 a$=a$+sp$+" ="+str$(p)
  258. 2580 gosub2790:goto2730
  259. 2590 a$="spieler"+str$(sn)+" an bank ="
  260. 2600 ifsn=0thena$="bank an bank ="
  261. 2610 a$=a$+str$(p)
  262. 2620 ss=0:s1=sn:gosub2790:goto2730
  263. 2630 ss=sn:sp$=str$(ss)
  264. 2640 ifp0=0then2660
  265. 2650 ss=ka(p0,0):sp$=k$(p0,1)
  266. 2660 a$="spieler"+sp$+" an"
  267. 2670 ifss=0thena$="bank an"
  268. 2680 if(p0=0)and(ss=ka(5,0))then2710
  269. 2690 a$=a$+k$(5,1)+" = 3"
  270. 2700 p=-3:s1=ka(5,0):gosub2790:goto2730
  271. 2710 a$=a$+" bank = 3"
  272. 2720 s1=ss:ss=0:p=3:gosub2790
  273. 2730 gosub2300
  274. 2740 sn=sn+1:ifsn>anthensn=1
  275. 2750 return
  276. 2760 rem *************
  277. 2770 rem auszahlen ***
  278. 2780 rem *************
  279. 2790 gosub1840
  280. 2800 gosub490
  281. 2810 a=2:ifss=0thena=0
  282. 2820 ms(ss,a)=ms(ss,a)+p
  283. 2830 gosub730
  284. 2840 ss=s1:a=2:ifss=0thena=0
  285. 2850 ms(ss,a)=ms(ss,a)-p
  286. 2860 gosub730
  287. 2870 return
  288. 2880 rem ****************
  289. 2890 rem loeschen sid ***
  290. 2900 rem ****************
  291. 2910 fors=0to23:pokesi+s,0
  292. 2920 next:return
  293. 2930 rem **********
  294. 2940 rem heulen ***
  295. 2950 rem **********
  296. 2960 pokesi+5,102:pokesi+6,0
  297. 2970 pokesi+24,15:pokesi+4,17
  298. 2980 return
  299. 2990 rem ********
  300. 3000 rem gong ***
  301. 3010 rem ********
  302. 3020 gosub2910
  303. 3030 pokesi+1,8:pokesi,180
  304. 3040 pokesi+5,12:pokesi+8,15
  305. 3050 pokesi+7,247:pokesi+6,8
  306. 3060 pokesi+13,8:pokesi+20,8
  307. 3070 pokesi+15,13:pokesi+14,10
  308. 3080 pokesi+12,12:pokesi+19,12
  309. 3090 pokesi+24,15:pokesi+4,23
  310. 3100 pokesi+11,23:pokesi+18,23
  311. 3110 return
  312. 3120 rem **********
  313. 3130 rem glocke ***
  314. 3140 rem **********
  315. 3150 gosub2910
  316. 3160 pokesi,207:pokesi+1,34
  317. 3170 pokesi+3,8:pokesi+7,255
  318. 3180 pokesi+8,34:pokesi+10,8
  319. 3190 pokesi+14,231:pokesi+15,34
  320. 3200 pokesi+17,8:pokesi+5,9
  321. 3210 pokesi+12,12:pokesi+19,12
  322. 3220 pokesi+6,9:pokesi+12,9
  323. 3230 pokesi+20,9
  324. 3240 pokesi+24,15
  325. 3250 fors=1tos0
  326. 3260 pokesi+4,65:pokesi+11,64
  327. 3270 fors1=0to100:next
  328. 3280 pokesi+11,65:pokesi+18,64
  329. 3290 fors1=0to100:next
  330. 3300 pokesi+18,65:pokesi+4,64
  331. 3310 fors1=0to100:next
  332. 3320 next
  333. 3330 pokesi+11,64:pokesi+18,64
  334. 3340 return
  335. 3350 rem **************
  336. 3360 rem zwitschern ***
  337. 3370 rem **************
  338. 3380 gosub2910
  339. 3390 pokesi+24,15
  340. 3400 pokesi+6,240:pokesi+13,240
  341. 3410 pokesi+4,17:pokesi+11,33
  342. 3420 fors=1to10
  343. 3430 fors0=25to250step25
  344. 3440 pokesi+1,s0:pokesi+8,275-s0
  345. 3450 nexts0,s
  346. 3460 pokesi+4,16:pokesi+11,32
  347. 3470 return
  348. 3480 rem ****************
  349. 3490 rem anfangswerte ***
  350. 3500 rem ****************
  351. 3510 sys12*4096
  352. 3520 _rf,0:_rc,4,255
  353. 3530 _rc,3,31:_re:_saa:_saf,0
  354. 3540 printchr$(150)chr$(147)
  355. 3550 printchr$(158)
  356. 3560 a=rnd(-ti):   rem zufall
  357. 3570 b=52224:      rem bildspeicher
  358. 3580 f=55296:      rem farbspeicher
  359. 3590 cu=58640:     rem cursorsteuerung
  360. 3600 ze=214:       rem cursorzeile
  361. 3610 sp=211:       rem cursorspalte
  362. 3620 si=54272:     rem sid
  363. 3630 dimk$(5,1):   rem kartennamen
  364. 3640 dimms(8,2):   rem spielerwerte
  365. 3650 dimka(5,1):   rem kartenwerte
  366. 3660 k$(1,0)="glocke"
  367. 3670 k$(2,0)="hammer"
  368. 3680 k$(3,0)="glocke+hammer"
  369. 3690 k$(4,0)="wirtshaus"
  370. 3700 k$(5,0)="schimmel"
  371. 3710 return
  372. 3720 rem *************
  373. 3730 rem titelbild ***
  374. 3740 rem *************
  375. 3750 gosub5830
  376. 3760 a$="glocke":a1=1:a2=7:a3=128
  377. 3770 gosub5110
  378. 3780 a=2:a1=8:gosub5550
  379. 3790 _smc,15:_smx,0:_smy,0
  380. 3800 _smk,112,187
  381. 3810 _sme,1:_sme,2:_sme,3
  382. 3820 gosub2910:gosub2960:a=1
  383. 3830 fori=187to75step-2
  384. 3840 a=a+1:ifa=5thena=2
  385. 3850 _smr,7,a:_smr,7,a+3
  386. 3860 pokesi+1,i:pokesi+4,16
  387. 3870 gosub2970
  388. 3880 _smk,112,i
  389. 3890 next
  390. 3900 pokeze,4:pokesp,12:syscu
  391. 3910 printchr$(158)a$
  392. 3920 _smk,132,100,5:_smc,0,5
  393. 3930 _smy,1,5:_sme,5
  394. 3940 _sma,1:_sma,2:_sma,3
  395. 3950 a$="hammer":a1=1:a2=7:a3=128
  396. 3960 gosub5110
  397. 3970 a=2:a1=8:gosub5550
  398. 3980 _sma,5:_smk,192,187
  399. 3990 _sme,1:_sme,2:_sme,3
  400. 4000 a=1
  401. 4010 fori=187to75step-2
  402. 4020 a=a+1:ifa=5thena=2
  403. 4030 _smr,7,a:_smr,7,a+3
  404. 4040 pokesi+1,i:pokesi+4,16
  405. 4050 gosub2970
  406. 4060 _smk,192,i
  407. 4070 next
  408. 4080 pokeze,4:pokesp,22:syscu
  409. 4090 printchr$(158)a$
  410. 4100 _smk,212,100,6:_smc,0,6
  411. 4110 _smk,132,100,5:_sme,5
  412. 4120 _smy,1,6:_sme,6
  413. 4130 _sma,1:_sma,2:_sma,3
  414. 4140 a$="und":a1=1
  415. 4150 _smf,0,2:gosub5110
  416. 4160 a=2:a1=8:gosub5550
  417. 4170 _sma,5:_sma,6:_smk,164,187
  418. 4180 _sme,1:_sme,2
  419. 4190 gosub2910:gosub2960:a=1
  420. 4200 fori=187to59step-1
  421. 4210 ifi=187then4240
  422. 4220 a=a+1:ifa=5thena=2
  423. 4230 _smr,7,a
  424. 4240 pokesi+1,i:pokesi+4,16
  425. 4250 gosub2970
  426. 4260 _smk,164,i
  427. 4270 next:_smr,7,2:_smr,7,3
  428. 4280 _smr,7,4:_smr,7,4
  429. 4290 _smk,172,100,7:_smc,0,7
  430. 4300 _smy,1,7:_sme,7:_smf,0,3
  431. 4310 a=7:a1=7:a3=0:gosub5550
  432. 4320 _smc,7,3:_smk,172,60,3
  433. 4330 _sme,3
  434. 4340 gosub2910:gosub2960
  435. 4350 fori=1to20
  436. 4360 _smk,172,76-16*(iand1),3
  437. 4370 pokesi+1,100+16*(iand1)
  438. 4380 pokesi+4,16
  439. 4390 gosub2970
  440. 4400 next
  441. 4410 _sma,1:_sma,2
  442. 4420 a$="glocke und hammer"
  443. 4430 a=1:a2=5:a1=1:gosub5110
  444. 4440 a=2:a1=8:gosub5550
  445. 4450 gosub2970
  446. 4460 _soc,4:_suc,13:_sry,1:_srx,1
  447. 4470 _srk,30,0:_rc,0,15
  448. 4480 _rc,5,48:_sre
  449. 4490 pokeze,12:pokesp,11:syscu
  450. 4500 a$="(p)[160]commodore disc"
  451. 4510 printchr$(153)a$
  452. 4520 a$="(c)[160]guenter kramer"
  453. 4530 print:printspc(11)a$
  454. 4540 gosub6040
  455. 4550 pokeze,17:pokesp,11:syscu
  456. 4560 a$="wieviele spieler ?"
  457. 4570 printchr$(5)a$
  458. 4580 print:poke198,0
  459. 4590 geta$
  460. 4600 ifa$<"1"ora$>"8"then4590
  461. 4610 gosub3380
  462. 4620 printspc(12)a$" spieler - ok ?"
  463. 4630 gete$:ife$="j"then4660
  464. 4640 ife$<>"n"then4630
  465. 4650 poke781,19:sys59903:goto4550
  466. 4660 an=val(a$)
  467. 4670 s0=5:gosub3150
  468. 4680 _sua:_suc,1:_sux,0:_suy,1
  469. 4690 fori=38to304step38
  470. 4700 _suk,i,0,i/38:next:_suy,0
  471. 4710 sys51776
  472. 4720 _rf,0:_sue
  473. 4730 return
  474. 4740 rem **********************
  475. 4750 rem spielfeld aufbauen ***
  476. 4760 rem **********************
  477. 4770 a$=chr$(32)+chr$(32)+chr$(32)
  478. 4780 _sma:printchr$(147)chr$(5)
  479. 4790 a$=chr$(18)+a$
  480. 4800 fori=1to6
  481. 4810 printspc(3)a$spc(5)a$spc(5)a$spc(5)a$spc(5)a$:next
  482. 4820 _sma:fori=5to8
  483. 4830 _smx,0,i:_smy,1,i:_smc,0,i
  484. 4840 _smk,i*64-272,61,i:_sme,i:next
  485. 4850 fori=320to359
  486. 4860 pokef+i,13:pokeb+i,64
  487. 4870 pokef+i+80,13:pokeb+i+80,64
  488. 4880 pokef+i+360,13:pokeb+i+360,64
  489. 4890 pokef+i+640,13:pokeb+i+640,64
  490. 4900 next
  491. 4910 fori=410to430step10
  492. 4920 pokef+i,13:pokeb+i,114
  493. 4930 forj=40to320step280
  494. 4940 fork=0to200step40
  495. 4950 pokef+i+j+k,13:pokeb+i+j+k,66
  496. 4960 next
  497. 4970 pokef+i+j+k,13
  498. 4980 ifj=40thenpokeb+i+j+k,91
  499. 4990 ifj=320thenpokeb+i+j+k,113
  500. 5000 nextj,i
  501. 5010 fori=1toan
  502. 5020 a$="**"+str$(i)+" **"
  503. 5030 pokeze,11:ifi>4thenpokeze,18
  504. 5040 a=10*i-8:ifi>4thena=a-40
  505. 5050 pokesp,a:syscu
  506. 5060 printa$:next
  507. 5070 return
  508. 5080 rem *****************
  509. 5090 rem rahmen setzen ***
  510. 5100 rem *****************
  511. 5110 a=len(a$)
  512. 5120 if(a2and1)=1thengosub5190
  513. 5130 if(a2and2)=2thengosub5310
  514. 5140 if(a2and4)=4thengosub5430
  515. 5150 return
  516. 5160 rem ***************
  517. 5170 rem oberer rand ***
  518. 5180 rem ***************
  519. 5190 fori=1+a1toa+a1
  520. 5200 _sob,64+a3,1,i:next
  521. 5210 _sob,73+a3,1,i:_sob,66+a3,9,i
  522. 5220 _sob,75+a3,14,i
  523. 5230 fori=a+a1to1+a1step-1
  524. 5240 _sob,64+a3,14,i:next
  525. 5250 _sob,74+a3,14,i
  526. 5260 _sob,66+a3,9,i:_sob,85+a3,1,i
  527. 5270 return
  528. 5280 rem *****************
  529. 5290 rem mittelsprites ***
  530. 5300 rem ***************
  531. 5310 fori=1+a1toa+a1
  532. 5320 _smb,64+a3,1,i:next
  533. 5330 _smb,73+a3,1,i:_smb,66+a3,9,i
  534. 5340 _smb,75+a3,14,i
  535. 5350 fori=a+a1to1+a1step-1
  536. 5360 _smb,64+a3,14,i:next
  537. 5370 _smb,74+a3,14,i
  538. 5380 _smb,66+a3,9,i:_smb,85+a3,1,i
  539. 5390 return
  540. 5400 rem ****************
  541. 5410 rem unterer rand ***
  542. 5420 rem ****************
  543. 5430 fori=1+a1toa+a1
  544. 5440 _sub,64+a3,1,i:next
  545. 5450 _sub,73+a3,1,i:_sub,66+a3,9,i
  546. 5460 _sub,75+a3,14,i
  547. 5470 fori=a+a1to1+a1step-1
  548. 5480 _sub,64+a3,14,i:next
  549. 5490 _sub,74+a3,14,i
  550. 5500 _sub,66+a3,9,i:_sub,85+a3,1,i
  551. 5510 return
  552. 5520 rem ***************
  553. 5530 rem text setzen ***
  554. 5540 rem ***************
  555. 5550 if(a2and1)=1thengosub5620
  556. 5560 if(a2and2)=2thengosub5690
  557. 5570 if(a2and4)=4thengosub5760
  558. 5580 return
  559. 5590 rem *************
  560. 5600 rem text oben ***
  561. 5610 rem *************
  562. 5620 fori=0tolen(a$)-1
  563. 5630 a4=asc(mid$(a$,i+1,1))and63
  564. 5640 _sob,a4+a3,a1,a+i:next
  565. 5650 return
  566. 5660 rem **************
  567. 5670 rem text mitte ***
  568. 5680 rem **************
  569. 5690 fori=0tolen(a$)-1
  570. 5700 a4=asc(mid$(a$,i+1,1))and63
  571. 5710 _smb,a4+a3,a1,a+i:next
  572. 5720 return
  573. 5730 rem **************
  574. 5740 rem text unten ***
  575. 5750 rem **************
  576. 5760 fori=0tolen(a$)-1
  577. 5770 a4=asc(mid$(a$,i+1,1))and63
  578. 5780 _sub,a4+a3,a1,a+i:next
  579. 5790 return
  580. 5800 rem ***********************
  581. 5810 rem sprite-karten lesen ***
  582. 5820 rem ***********************
  583. 5830 a=peek(61)+256*peek(62)
  584. 5840 poke65,aand255
  585. 5850 poke66,a/256
  586. 5860 fori=64256toi+255
  587. 5870 reada:pokei,a:next
  588. 5880 return
  589. 5890 rem ***********************
  590. 5900 data0,60,0,0,126,0,3,195,192,14,0,112,24,0,24,48,0,12,48,0,12,48,0,12
  591. 5910 data48,0,12,48,0,12,48,0,12,48,0,12,48,0,12,48,0,12,96,0,6,192,0,3,126
  592. 5920 data0,126,3,231,192,0,24,0,0,36,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,240
  593. 5930 data0,0,252,0,0,63,0,0,15,192,0,3,240,0,15,252,0,60,63,0,240,12,3,192
  594. 5940 data0,15,0,0,60,0,0,240,0,0,192,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  595. 5950 data0,0,48,0,0,248,0,0,111,143,0,48,67,192,32,33,224,16,24,248,8,7,252
  596. 5960 data4,15,15,2,60,224,3,240,30,3,192,3,15,0,12,61,0,48,241,3,192,195,252
  597. 5970 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,255,0,8,2,192,16,1,48,32
  598. 5980 data0,140,64,0,82,128,0,98,255,255,202,128,0,90,156,231,82,156,231,68
  599. 5990 data156,231,72,128,224,80,128,224,96,255,255,192,0,0,0,0,0,0,0,0,0,0
  600. 6000 data0,0,0,0,0,73
  601. 6010 rem ************************
  602. 6020 rem sprite-wuerfel lesen ***
  603. 6030 rem ************************
  604. 6040 a=peek(61)+256*peek(62)
  605. 6050 poke65,aand255
  606. 6060 poke66,a/256
  607. 6070 fori=51200to51801
  608. 6080 reada:pokei,a:next
  609. 6090 gosub6500:return
  610. 6100 rem ***********************
  611. 6110 data15,255,240,63,255,252,127,255,254,127,255,254,255,255,255,255,255
  612. 6120 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  613. 6130 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  614. 6140 data127,255,254,127,255,254,63,255,252,15,255,240,0,15,255,240,63,255
  615. 6150 data252,127,255,254,127,255,254,255,255,255,255,255,255,255,255,255,255
  616. 6160 data255,255,255,255,255,255,231,255,255,195,255,255,231,255,255,255,255
  617. 6170 data255,255,255,255,255,255,255,255,255,255,255,255,127,255,254,127,255
  618. 6180 data254,63,255,252,15,255,240,0,15,255,240,63,255,252,127,255,254,127
  619. 6190 data255,158,255,255,15,255,255,159,255,255,255,255,255,255,255,255,255
  620. 6200 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  621. 6210 data255,249,255,255,240,255,255,121,255,254,127,255,254,63,255,252,15
  622. 6220 data255,240,0,15,255,240,63,255,252,127,255,254,127,255,158,255,255,15
  623. 6230 data255,255,159,255,255,255,255,255,255,255,255,255,255,231,255,255,195
  624. 6240 data255,255,231,255,255,255,255,255,255,255,255,255,255,249,255,255,240
  625. 6250 data255,255,121,255,254,127,255,254,63,255,252,15,255,240,0,15,255,240
  626. 6260 data63,255,252,127,255,254,121,255,158,240,255,15,249,255,159,255,255
  627. 6270 data255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  628. 6280 data255,255,255,255,255,255,255,255,249,255,159,240,255,15,121,255,158
  629. 6290 data127,255,254,63,255,252,15,255,240,0,15,255,240,63,255,252,127,255
  630. 6300 data254,121,255,158,240,255,15,249,255,159,255,255,255,255,255,255,255
  631. 6310 data255,255,255,231,255,255,195,255,255,231,255,255,255,255,255,255,255
  632. 6320 data255,255,255,249,255,159,240,255,15,121,255,158,127,255,254,63,255
  633. 6330 data252,15,255,240,0,15,255,240,63,255,252,127,255,254,121,255,158,240
  634. 6340 data255,15,249,255,159,255,255,255,255,255,255,255,255,255,249,255,159
  635. 6350 data240,255,15,249,255,159,255,255,255,255,255,255,255,255,255,249,255
  636. 6360 data159,240,255,15,121,255,158,127,255,254,63,255,252,15,255,240,0,15
  637. 6370 data255,240,63,231,252,127,195,254,127,195,254,255,231,255,255,129,255
  638. 6380 data255,60,255,254,126,127,254,126,127,254,102,127,254,66,127,252,231
  639. 6390 data63,249,255,159,240,126,15,255,24,255,255,231,255,255,219,255,127
  640. 6400 data255,254,127,255,254,63,255,252,15,255,240,0,15,255,240,63,255,252
  641. 6410 data127,255,254,127,255,254,255,240,255,255,248,127,255,252,63,255,254
  642. 6420 data31,255,254,15,255,252,7,255,248,67,255,240,225,255,225,243,255,195
  643. 6430 data255,255,135,255,255,15,255,254,31,255,124,63,254,126,127,254,63,255
  644. 6440 data252,15,255,240,68
  645. 6450 data169,64,133,95,169,200,133,96,169,202,133,91,169,63,133,90,169,255
  646. 6460 data133,88,133,89,32,191,163,96
  647. 6470 rem *****************
  648. 6480 rem wuerfeln m.p. ***
  649. 6490 rem *****************
  650. 6500 a=peek(61)+256*peek(62)
  651. 6510 poke65,aand255
  652. 6520 poke66,a/256
  653. 6530 fori=50853to51018
  654. 6540 reada:pokei,a:next
  655. 6550 return
  656. 6560 rem *****************
  657. 6570 data162,62,165,254,141,222,198,141,10,199,165,253,141,225,198,169,21
  658. 6580 data72,160,62,32,251,198,136,192,2,208,248,32,203,198,104,168,136,152
  659. 6590 data208,236,96,169,192,133,253,169,255,133,254,169,202,141,247,198,169
  660. 6600 data0,141,246,198,169,1,72,169,0,208,17,189,0,200,145,253,32,38,199,104
  661. 6610 data74,208,239,202,136,16,215,96,189,192,201,76,231,198,169,189,133,251
  662. 6620 data169,255,133,252,133,254,169,192,133,253,169,1,72,165,1,41,253,120
  663. 6630 data133,1,177,251,145,253,165,1,9,2,133,1,88,32,38,199,104,74,208,230
  664. 6640 data96,165,251,56,233,64,133,251,176,2,198,252,165,253,56,233,64,133
  665. 6650 data253,176,2,198,254,173,246,198,56,233,64,141,246,198,176,3,206,247
  666. 6660 data198,96
  667.